home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / BUDGET ANALYZE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  49 lines
  1. 10 M1 = 0:M2 = 0
  2. 20 D$ =  CHR$(4):N$ = ""
  3. 30 M1 = 0:M2 = 0
  4. 40  DIM BU(30,13,2),S(30,15),R(13,2)
  5. 50 M1 =  PEEK(107) +256 * PEEK(108)
  6. 60 M2 =  PEEK(109) +256 * PEEK(110)
  7. 70  DIM B$(30),MN$(13)
  8. 80  PRINT M1; TAB( 15);M2
  9. 90  TEXT : HOME : PRINT "BUDGET ACTUAL INPUT AND ANALYZE": INPUT "BUDGET DATA FILE NAME? ";N$
  10. 100  PRINT D$;"BLOAD";N$;",A";M1
  11. 110  REM 
  12. 120  INPUT "STRING FILE NAME? ";N$
  13. 130  PRINT D$"OPEN";N$: PRINT D$;"READ";N$
  14. 140  FOR I = 1 TO 30: INPUT B$(I): NEXT I
  15. 150  FOR I = 1 TO 13: INPUT MN$(I): NEXT I
  16. 160  PRINT D$"CLOSE";N$
  17. 170  INPUT "MONTH FOR ACTUALS (1-12)";MN
  18. 180  IF MN >0  THEN 200
  19. 190 MN =  ABS(MN): GOSUB 10000: STOP 
  20. 200  IF MN <1  OR MN >12  THEN 170
  21. 210  FOR J = 1 TO 30
  22. 220  IF S(J,1) < >0  THEN 240
  23. 230  PRINT B$(J);: INPUT " ACTUALS $? ";BUDGT(J,MN,2): GOTO 320
  24. 240  REM  CALCULATE RUNNING TOTALS
  25. 250 RT = 0: FOR K = 2 TO 15
  26. 260  IF S(J,K) < >0  THEN RT = RT +BU(S(J,K),MN,2)
  27. 270  NEXT 
  28. 280 BU(J,MN,2) = RT: PRINT  CHR$(10);B$(J);" ";RT
  29. 290  NEXT 
  30. 300  GOTO 340
  31. 310  REM  RUN UP RUNNING TOTALS
  32. 320 BU(J,13,2) = 0
  33. 330  FOR I = 1 TO MN:BU(J,13,2) = BU(J,13,2) +BU(J,I,2): NEXT : NEXT 
  34. 340  REM  CALCULATE RATIOS
  35. 350 NDIGITS = 1000
  36. 360 DL = 0:OV = 0: FOR MN = 1 TO 13
  37. 370 DL = DL +BU(5,MN,2):OV = OV +BU(30,MN,2)
  38. 380 R(MN,2) =  INT(OV/DL *NDIGITS)/NDIGITS
  39. 390  NEXT 
  40. 400  HOME : PRINT : PRINT "EXPENSE TO INCOME RATIO": PRINT "MONTH"; TAB( 10);"BUDGET"; TAB( 20);"ACTUAL": FOR MN = 1 TO 12: PRINT MN$(MN); TAB( 10);R(MN,1); TAB( 20);R(MN,2): NEXT 
  41. 410  INPUT "OUTPUT FILE NAME? ";N$
  42. 420 M1 =  PEEK(107) +256 * PEEK(108)
  43. 430 M2 =  PEEK(109) +256 * PEEK(110)
  44. 440  PRINT D$"BSAVE";N$;",A";M1;",L";M2 -M1 +1
  45. 450  INPUT "AGAIN? ";N$: IF N$ = "Y"  THEN 170
  46. 460  PRINT "DONE"
  47. 63000  REM  WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80
  48. 63010  REM  PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS 
  49. 63020  REM  ALL COMMERCIAL RIGHTS RESERVED